home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Control Panel Hide 6.xpl < prev    next >
Text File  |  2001-12-25  |  3KB  |  111 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Appearance\Control Panel\OEM Icons"
  5. "NAME"="Visible OEM Items #1"
  6. "VERSION"="2.01"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Display "3COM Pace Config" applet"
  9. "TEXT 2"="Display "Xteq X-Setup" applet"
  10. "TEXT 3"="Display "RealPlayer Preferences" applet"
  11. "TEXT 4"="Display "MS Office FindFast Control" applet"
  12. "TEXT 5"="Display "Novell NetWare" applet"
  13. "DESCRIPTION 1"="This plug-in can be used to hide or show the different applets inside Start -> Settings -> Control Panel."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18. "COMMENT 2"="Special thanks to Maxwell (maxwello@hotpop.com) for his brilliant tips and CptSiskoX (CptSiskoX@flashmail.com) for his help."
  19. "COMMENT 3"="See also: MS KB Q207750"
  20.  
  21.  
  22. '******************************************************************
  23. '***                COPY !!!! ONLY EDIT LINES BELOW!!!!        ****
  24. '******************************************************************
  25. sVals=Array("pacecfg.cpl","xqxsetup.cpl","prefscpl.cpl","findfast.cpl","nwc.cpl") 
  26. '******************************************************************
  27. '*** Keep an eye on the order (must be the same as "TEXT x") ! ****
  28. '******************************************************************
  29. sPath="HKCU\Control Panel\Don't Load\"
  30. sFile="CONTROL.INI"
  31. sFileSec="Don't Load"
  32.  
  33.  
  34.  
  35. SUB Plugin_Initialize
  36.  for i=0 to UBound(sVals)
  37.      Call ReadIt(i+1,sVals(i)) 
  38.  next 
  39. END SUB
  40.  
  41. Sub ReadIt(ITM,VAL)
  42.   If GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
  43.      'old (win32 1/2) INI style...
  44.  
  45.      s=IniReadValue(sFile,sFileSec,VAL)
  46.      if len(s)>0 then
  47.         Call SetUIElement(ITM,false)
  48.      else
  49.         Call SetUIElement(ITM,true)
  50.      end if
  51.  
  52.   else
  53.  
  54.      s=RegReadValue(sPath & VAL)
  55.      if IsEmpty(s)=true then
  56.         Call SetUIElement(ITM,true)
  57.      else
  58.         Call SetUIElement(ITM,false)
  59.      end if
  60.   end if
  61.      
  62. End Sub
  63.  
  64. 'Called when the Plugin should validate the Data the user has entered
  65. SUB Plugin_CheckData(ElementIndex)
  66. END SUB
  67.  
  68. 'Called when the Plugin should apply the changes
  69. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  70.  for i=0 to UBound(sVals)
  71.      Call WriteIt(i+1,sVals(i)) 
  72.  next 
  73.  
  74.  Call IndicateSettingChange()
  75. END SUB
  76.  
  77. Sub WriteIt(ITM,VAL)
  78.  b=GetUIElement(ITM)
  79.  if b=true then
  80.     'Display it
  81.  
  82.     If GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
  83.        'win32 1/2
  84.        Call IniWriteValue(sFile,sFileSec,VAL,"")
  85.     else
  86.        s=RegReadValue(sPath & VAL)
  87.        if IsEmpty(s)=false then
  88.           Call RegDeleteValue(sPath & VAL)
  89.        end if
  90.     end if
  91.  
  92.  else
  93.    'Hide it
  94.    
  95.    If GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
  96.       'win32 1/2
  97.       Call IniWriteValue(sFile,sFileSec,VAL,"no")
  98.    else
  99.       Call RegWriteValue(sPath & VAL,"1",1) 
  100.    end if
  101.  
  102.  end if   
  103. End Sub
  104.  
  105.  
  106. 'Called when the Plugin is about to be removed from memory
  107. SUB Plugin_Terminate
  108. END SUB
  109.  
  110.  
  111.